#!/bin/perl -w

# makes 10.31.209.187 unreachable from server 10.45.18.208"; 
my $cmd="/sbin/route add 10.31.209.187 10.45.18.208";
# makes 10.31.209.187 reachable from server 10.45.18.208"; 
my $cmd2="/sbin/route delete 10.31.209.187 10.45.18.208";

while(1) {
my $res=`$cmd`;
print $res;

$res=`sleep 2`;
print $res;

$res=`$cmd2`;
print $res;

$res=`sleep 2`;
}

